﻿Imports BibliotecaClasesTests.GestionTest
Imports FormulariosTests.frmPrincipal

Public Class frmCrearTema

    Private Sub btnNuevoTema_Click(sender As System.Object, e As System.EventArgs) Handles btnNuevoTema.Click
        'frmPrincipal.cboListaTests.Items.Add(miGestionTest.CrearTest(txtNuevoTema.Text))
        Dim miTema() As String = txtNuevoTema.Text.Split("\")
        miGestionTest.CrearTest(miTema(miTema.Length - 1))

    End Sub

    Private Sub btnSalirCrearTema_Click(sender As System.Object, e As System.EventArgs) Handles btnSalirCrearTema.Click
        Me.Close()
        frmPrincipal.Show()
    End Sub

    Private Sub frmCrearTema_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class